home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / rexx / tritonrexx376.lha / TritonRexx / ARexxControl / ARexxControl.windows < prev    next >
Text File  |  1995-09-16  |  12KB  |  400 lines
  1. /*
  2. ** $VER: ARexxControl.windows 1.1 (16.9.95) ⌐1995 by Jⁿrgen Kohrmeyer
  3. **
  4. ** Fensterbeschreibungen fⁿr ARexxControl
  5. */
  6.  
  7. /*
  8. ** Hauptfenster
  9. */
  10.  
  11. mainwindowtags = ,
  12.    WindowID(1),
  13.    WindowFlags('TRWF_APPWINDOW'),
  14.    WindowTitle(appname appversion),
  15.    PubScreenName(prefs.screen),
  16.    BeginMenu(localestring(MSG_MAIN_MENU_PROJECT)),
  17.       MenuItem(localestring(MSG_MAIN_MENUITEM_NEW),100),
  18.       MenuItem(localestring(MSG_MAIN_MENUITEM_OPEN),101),
  19.       'ItemBarlabel',
  20.       MenuItem(localestring(MSG_MAIN_MENUITEM_SAVE),102),
  21.       MenuItem(localestring(MSG_MAIN_MENUITEM_SAVEAS),103),
  22.       'ItemBarlabel',
  23.       MenuItem(localestring(MSG_MAIN_MENUITEM_PREFS),104),
  24.       'ItemBarlabel',
  25.       MenuItem(localestring(MSG_MAIN_MENUITEM_ABOUT),105),
  26.       'ItemBarlabel',
  27.       MenuItem(localestring(MSG_MAIN_MENUITEM_ICONIFY),106),
  28.       MenuItem(localestring(MSG_MAIN_MENUITEM_QUIT),107),
  29.    'HorizGroupAC',
  30.       'Space',
  31.       'VertGroupA',
  32.          'Space',
  33.          NamedFrameBox(localestring(MSG_MAIN_FRAMEBOX_LIST)),
  34.          'HorizGroupA',
  35.             'Space',
  36.             'VertGroupA',
  37.                'Space',
  38.                ListSS('scriptlist',1,0,0),
  39.                'HorizGroupA',
  40.                   Button(localestring(MSG_MAIN_GAD_ADD),2),
  41.                   Button(localestring(MSG_MAIN_GAD_REMOVE),3),
  42.                   Button(localestring(MSG_MAIN_GAD_ARGS),4),
  43.                'EndGroup',
  44.                'HorizGroupA',
  45.                   Button(localestring(MSG_MAIN_GAD_SORT),5),
  46.                   Button(localestring(MSG_MAIN_GAD_UP),6),
  47.                   Button(localestring(MSG_MAIN_GAD_DOWN),7),
  48.                'EndGroup',
  49.                'SpaceS',
  50.                'HorizSeparator',
  51.                'SpaceS',
  52.                'HorizGroupA',
  53.                   Button(localestring(MSG_MAIN_GAD_ICON),8),
  54.                   Button(localestring(MSG_MAIN_GAD_BACKUP),9),
  55.                   Button(localestring(MSG_MAIN_GAD_EDIT),10),
  56.                   Button(localestring(MSG_MAIN_GAD_START),11),
  57.                'EndGroup',
  58.                'Space',
  59.             'EndGroup',
  60.             'Space',
  61.          'EndGroup',
  62.          'Space',
  63.       'EndGroup',
  64.       'Space',
  65.       'TRGR_Vert TRGR_ALIGN|TRGR_CENTER|TRGR_FIXHORIZ',
  66.          'Space',
  67.          NamedSeparator(localestring(MSG_MAIN_SEPARATOR_AREXX)),
  68.          'Space',
  69.          Button(localestring(MSG_MAIN_GAD_TRACE),20),
  70.          Button(localestring(MSG_MAIN_GAD_HALT),21),
  71.          Button(localestring(MSG_MAIN_GAD_SHELL),22),
  72.          'SpaceB',
  73.          NamedSeparator(localestring(MSG_MAIN_SEPARATOR_TRX)),
  74.          'Space',
  75.          Button(localestring(MSG_MAIN_GAD_FLUSHTRX),23),
  76.          'SpaceB',
  77.          NamedSeparator(localestring(MSG_MAIN_SEPARATOR_LISTS)),
  78.          'Space',
  79.          Button(localestring(MSG_MAIN_GAD_LIBS),30),
  80.          Button(localestring(MSG_MAIN_GAD_CLIPS),31),
  81.          Button(localestring(MSG_MAIN_GAD_OTHER),32),
  82.          'SpaceB',
  83.          NamedSeparator(localestring(MSG_MAIN_SEPARATOR_PROGRAM)),
  84.          'Space',
  85.          Button(localestring(MSG_MAIN_GAD_PREFS),40),
  86.          'HorizGroupAC',
  87.             Button(localestring(MSG_MAIN_GAD_ICONIFY),41),
  88.             Button(localestring(MSG_MAIN_GAD_QUIT),42),
  89.          'EndGroup',
  90.          'VertGroupSA Space EndGroup',
  91.       'EndGroup',
  92.       'Space',
  93.    'EndGroup EndProject'
  94.  
  95.  
  96. /*
  97. ** Einstellungen-Fenster
  98. */
  99.  
  100. prefswindowtags = ,
  101.    WindowID(2),
  102.    WindowTitle(appname appversion '-' localestring(MSG_PREFS_TITLE)),
  103.    PubScreenName(prefs.screen),
  104.    'HorizGroupA',
  105.       'Space',
  106.       'VertGroupA',
  107.          'Space',
  108.          NamedFrameBox(localestring(MSG_PREFS_FRAMEBOX_CONSOLE)),
  109.          'HorizGroupA',
  110.             'Space',
  111.             'VertGroupA',
  112.                'Space',
  113.                'LineArray',
  114.                   'BeginLine',
  115.                      TextID(localestring(MSG_PREFS_GAD_SHELL_INPUT),201) 'TRAT_Flags TROF_RIGHTALIGN',
  116.                      'Space',
  117.                      StringGadget('',201) 'TRAT_Value 256',
  118.                   'EndLine',
  119.                   'SpaceS',
  120.                   'BeginLine',
  121.                      TextID(localestring(MSG_PREFS_GAD_SHELL_OUTPUT),202) 'TRAT_Flags TROF_RIGHTALIGN',
  122.                      'Space',
  123.                      StringGadget('',202) 'TRAT_Value 256',
  124.                   'EndLine',
  125.                   'SpaceS',
  126.                   'BeginLine',
  127.                      TextID(localestring(MSG_PREFS_GAD_DEFAULT_CONSOLE),203) 'TRAT_Flags TROF_RIGHTALIGN',
  128.                      'Space',
  129.                      StringGadget('',203) 'TRAT_Value 256',
  130.                   'EndLine',
  131.                'EndArray',
  132.                'Space',
  133.             'EndGroup',
  134.             'Space',
  135.          'EndGroup',
  136.          'SpaceB',
  137.          NamedFrameBox(localestring(MSG_PREFS_FRAMEBOX_MISC)),
  138.          'HorizGroupA',
  139.             'Space',
  140.             'VertGroupA',
  141.                'Space',
  142.                'LineArray',
  143.                   'BeginLine',
  144.                      TextID(localestring(MSG_PREFS_GAD_ICON),210) 'TRAT_Flags TROF_RIGHTALIGN',
  145.                      'Space',
  146.                      StringGadget('',210) 'TRAT_Value 256',
  147.                      GetFileButton(211),
  148.                   'EndLine',
  149.                   'SpaceS',
  150.                   'BeginLine',
  151.                      TextID(localestring(MSG_PREFS_GAD_BACKUPDIR),212) 'TRAT_Flags TROF_RIGHTALIGN',
  152.                      'Space',
  153.                      StringGadget('',212) 'TRAT_Value 256',
  154.                      GetDrawerButton(213),
  155.                   'EndLine',
  156.                   'SpaceS',
  157.                   'BeginLine',
  158.                      TextID(localestring(MSG_PREFS_GAD_AREXXDIR),214) 'TRAT_Flags TROF_RIGHTALIGN',
  159.                      'Space',
  160.                      StringGadget('',214) 'TRAT_Value 256',
  161.                      GetDrawerButton(215),
  162.                   'EndLine',
  163.                   'SpaceS',
  164.                   'BeginLine',
  165.                      TextID(localestring(MSG_PREFS_GAD_LIBDIR),216) 'TRAT_Flags TROF_RIGHTALIGN',
  166.                      'Space',
  167.                      StringGadget('',216) 'TRAT_Value 256',
  168.                      GetDrawerButton(217),
  169.                   'EndLine',
  170.                   'Space',
  171.                   'BeginLineI HorizSeparator EndLine',
  172.                   'Space',
  173.                   'BeginLine',
  174.                      TextID(localestring(MSG_PREFS_GAD_EDITOR),218) 'TRAT_Flags TROF_RIGHTALIGN',
  175.                      'Space',
  176.                      StringGadget('',218) 'TRAT_Value 256',
  177.                      GetFileButton(219),
  178.                   'EndLine',
  179.                   'Space',
  180.                   'BeginLineI HorizSeparator EndLine',
  181.                   'Space',
  182.                   'BeginLine',
  183.                      TextID(localestring(MSG_PREFS_GAD_PUBSCREEN),220) 'TRAT_Flags TROF_RIGHTALIGN',
  184.                      'Space',
  185.                      StringGadget('',220) 'TRAT_Value 140',
  186.                      GetEntryButton(221),
  187.                   'EndLine',
  188.                'EndArray',
  189.                'Space',
  190.             'EndGroup',
  191.             'Space',
  192.          'EndGroup',
  193.          'SpaceB',
  194.          'HorizGroupSAC',
  195.             Button(localestring(MSG_REQ_GAD_USE),298),
  196.             'Space',
  197.             Button(localestring(MSG_REQ_GAD_CANCEL),299),
  198.          'EndGroup',
  199.          'Space',
  200.       'EndGroup',
  201.       'Space',
  202.    'EndGroup EndProject'
  203.  
  204.  
  205. /*
  206. ** Bildschirmauswahl-Fenster
  207. */
  208.  
  209. screenlisttags = ,
  210.    WindowID(3),
  211.    WindowPosition('TRWP_MOUSEPOINTER'),
  212.    WindowTitle(localestring(MSG_SCREENLIST_TTTLE)),
  213.    WindowFlags('TRWF_NOCLOSEGADGET|TRWF_NOESCCLOSE'),
  214.    PubScreenName(prefs.screen),
  215.    'VertGroupA',
  216.       'Space',
  217.       'HorizGroupA',
  218.          'Space',
  219.          ListSel('screenlist',301,0),
  220.          'Space',
  221.       'EndGroup',
  222.       'Space',
  223.       'HorizSeparator',
  224.       'Space',
  225.       'HorizGroupA',
  226.          'Space',
  227.          ButtonRE(localestring(MSG_REQ_GAD_CANCEL),399),
  228.          'Space',
  229.       'EndGroup',
  230.       'Space',
  231.    'EndGroup EndProject'
  232.  
  233.  
  234.  
  235. /*
  236. ** Library-Liste
  237. */
  238.  
  239. libswindowtags = ,
  240.    WindowID(4),
  241.    WindowTitle(localestring(MSG_LIBLIST_TITLE)),
  242.    PubScreenName(prefs.screen),
  243.    'HorizGroupA',
  244.       'Space',
  245.       'VertGroupA',
  246.          'Space',
  247.          NamedFrameBox(localestring(MSG_LIBLIST_FRAMEBOX)),
  248.          'HorizGroupA',
  249.             'Space',
  250.             'VertGroupA',
  251.                'Space',
  252.                ListSS('liblist',401,0,0),
  253.                'HorizGroupAC',
  254.                   Button(localestring(MSG_LIBLIST_GAD_ADDLIB),402),
  255.                   Button(localestring(MSG_LIBLIST_GAD_REMLIB),403),
  256.                   Button(localestring(MSG_LIBLIST_GAD_UPDATE),404),
  257.                'EndGroup',
  258.                'Space',
  259.             'EndGroup',
  260.             'Space',
  261.          'EndGroup',
  262.          'Space',
  263.       'EndGroup',
  264.       'Space',
  265.    'EndGroup EndProject'
  266.  
  267.  
  268.  
  269. /*
  270. ** Clip-Liste
  271. */
  272.  
  273. clipswindowtags = ,
  274.    WindowID(5),
  275.    WindowTitle(localestring(MSG_CLIPLIST_TITLE)),
  276.    PubScreenName(prefs.screen),
  277.    'HorizGroupA',
  278.       'Space',
  279.       'VertGroupA',
  280.          'Space',
  281.          NamedFrameBox(localestring(MSG_CLIPLIST_FRAMEBOX)),
  282.          'HorizGroupA',
  283.             'Space',
  284.             'VertGroupA',
  285.                'Space',
  286.                FWListSS('cliplist',501,0,0) 'TRAT_MinWidth 30',
  287.                'HorizGroupAC',
  288.                   Button(localestring(MSG_CLIPLIST_GAD_SETCLIP),502),
  289.                   Button(localestring(MSG_CLIPLIST_GAD_DELETE),503),
  290.                   Button(localestring(MSG_CLIPLIST_GAD_UPDATE),504),
  291.                'EndGroup',
  292.                'Space',
  293.             'EndGroup',
  294.             'Space',
  295.          'EndGroup',
  296.          'Space',
  297.       'EndGroup',
  298.       'Space',
  299.    'EndGroup EndProject'
  300.  
  301.  
  302.  
  303. /*
  304. ** Andere Listen
  305. */
  306.  
  307. cycle.0  = 12
  308. cycle.1  = 'ARexx-Files'
  309. cycle.2  = 'Assigns'
  310. cycle.3  = 'Devices'
  311. cycle.4  = 'Handlers'
  312. cycle.5  = 'Interrupts'
  313. cycle.6  = 'Libraries'
  314. cycle.7  = 'Ports'
  315. cycle.8  = 'PublicScreens'
  316. cycle.9  = 'Resources'
  317. cycle.10 = 'Semaphores'
  318. cycle.11 = 'Tasks'
  319. cycle.12 = 'Volumes'
  320.  
  321. otherwindowtags = ,
  322.    WindowID(6),
  323.    WindowTitle(localestring(MSG_OTHERLISTS_TITLE)),
  324.    PubScreenName(prefs.screen),
  325.    'HorizGroupA',
  326.       'Space',
  327.       'VertGroupA',
  328.          'Space',
  329.          NamedFrameBox(localestring(MSG_OTHERLISTS_FRAMEBOX)),
  330.          'HorizGroupA',
  331.             'Space',
  332.             'VertGroupA',
  333.                'Space',
  334.                'HorizGroupAC',
  335.                   TextID(localestring(MSG_OTHERLISTS_GAD_CYCLE),601),
  336.                   'Space',
  337.                   CycleGadget('cycle',0,601),
  338.                'EndGroup',
  339.                'Space',
  340.                'HorizSeparator',
  341.                'Space',
  342.                FWListRO('otherlist',602,0) 'TRAT_MinWidth 37',
  343.                Button(localestring(MSG_OTHERLISTS_GAD_UPDATE),603),
  344.                'Space',
  345.             'EndGroup',
  346.             'Space',
  347.          'EndGroup',
  348.          'Space',
  349.       'EndGroup',
  350.       'Space',
  351.    'EndGroup EndProject'
  352.  
  353.  
  354.  
  355. /*
  356. ** SetClip-Fenster
  357. */
  358.  
  359. setclipwindowtags = ,
  360.    WindowID(7),
  361.    WindowFlags('TRWF_ACTIVATESTRGAD'),
  362.    WindowTitle(localestring(MSG_SETCLIP_TITLE)),
  363.    PubScreenName(prefs.screen),
  364.    'HorizGroupA',
  365.       'Space',
  366.       'VertGroupA',
  367.          'Space',
  368.          NamedFrameBox(localestring(MSG_SETCLIP_FRAMEBOX)),
  369.          'HorizGroupA',
  370.             'Space',
  371.             'VertGroupA',
  372.                'Space',
  373.                'LineArray',
  374.                   'BeginLine',
  375.                      TextID(localestring(MSG_SETCLIP_GAD_NAME),701) 'TRAT_Flags TROF_RIGHTALIGN',
  376.                      'Space',
  377.                      StringGadget('',701) 'TRAT_Value 256 TRAT_Flags TRST_NORETURNBROADCAST',
  378.                   'EndLine',
  379.                   'SpaceS',
  380.                   'BeginLine',
  381.                      TextID(localestring(MSG_SETCLIP_GAD_VALUE),702) 'TRAT_Flags TROF_RIGHTALIGN',
  382.                      'Space',
  383.                      StringGadget('',702) 'TRAT_Value 256',
  384.                   'EndLine',
  385.                'EndArray',
  386.                'Space',
  387.             'EndGroup',
  388.             'Space',
  389.          'EndGroup',
  390.          'Space',
  391.          'HorizGroupSAC',
  392.             ButtonR(localestring(MSG_REQ_GAD_USE),703),
  393.             'Space',
  394.             ButtonE(localestring(MSG_REQ_GAD_CANCEL),704),
  395.          'EndGroup',
  396.          'Space',
  397.       'EndGroup',
  398.       'Space',
  399.    'EndGroup EndProject'
  400.